home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / VB_7DAYS.ZIP;1 / CVI.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-17  |  306 b   |  16 lines
  1. ' CVI.BAS
  2.  
  3. ' This function restores the "missing" CVI% function to
  4. ' Visual Basic.
  5.  
  6. FUNCTION CVI% (I$)
  7.   Byte1$ = LEFT$(I$, 1)
  8.   Byte2$ = MID$(I$, 2, 1)
  9.   TempI& = ASC(Byte2$) * 256& + ASC(Byte1$)
  10.   IF TempI& >> 32767 THEN
  11.     TempI& = TempI& - 65536
  12.   END IF
  13.   CVI% = TempI&
  14. END FUNCTION
  15.  
  16.